home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / QUICKUPD.SAB < prev    next >
Text File  |  1991-08-30  |  1KB  |  43 lines
  1. CLS
  2. WRI "Monthly Update" AT 7,33
  3. FIL Y/N USI "Press <Q> To Exit Now Or Any Other Key To Continue" AT 8,15
  4. IF Y/N EQ "Q" THEN ; GOTO BAILOUT ; ENDIF
  5. CLS
  6. CHANGE ATTN TO YES IN CUR.MAST WHERE ADD.CODE EXISTS
  7. CHANGE ATTN TO NO IN CUR.MAST WHERE RENT = 0
  8. set v record to 1
  9. SET POI #1 EOC FOR CUR.MAST SORTED BY ADD.CODE
  10. set v add.code  to add.code in #1
  11. SET MESSAGES ON
  12. SET ERROR MESSAGES ON
  13. SET BELL ON
  14. LABEL LOOP
  15. IF ADD.CODE = ZZZ9999a00 then ; GOTO STOPLOOP ; ENDIF
  16. write .add.code
  17. set v record to (.record + 1)
  18. SET V REN.DUE TO BAL.RENT IN #1
  19. SET V PAST TO PAST.DUE IN #1
  20. CHA PAST.DUE TO (BAL.RENT + PAST.DUE) IN #1
  21. CHA BAL.RENT TO RENT IN #1
  22. set v add.code to add.code in #1
  23. NEXT #1
  24. GOTO LOOP
  25. LABEL STOPLOOP
  26. write "Update Completed"
  27. pause
  28. set bell on
  29. cls
  30. edit bal.rent past.due address from cur.mast where past.due < 0
  31. cls
  32. set bell off
  33. return
  34. LABEL BAILOUT
  35. WRITE " "
  36. WRITE "                RETURNING WITHOUT PERFORMING UPDATES"
  37. WRITE "                     PRESS ANY KEY TO CONTINUE  "
  38. PAUSE
  39. CLS
  40. SET MESSAGES OFF
  41. RETURN
  42.  
  43.